home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CRESC / Variations / symbol-interleave < prev    next >
Encoding:
Text File  |  1997-02-02  |  676 b   |  17 lines  |  [TEXT/ScoM]
  1. symbol-interleave pattern1 pattern2
  2.  
  3. This function lets two pattern mix or 'interleave' their elements sequentially. This produces the very simplest form of 'hocket' texture.
  4.  
  5. (symbol-interleave '(a b c d) '(ac df gi ej))
  6. --> (a ac b df c gi d ej)
  7.  
  8. If the patterns are of different lengths the longer of the two patterns will decide the overall length of the resultant pattern.
  9.  
  10. (symbol-interleave '(24 12 24 24) '(6 6 6 12 6 6 6 12))
  11. --> (24 6 12 6 24 6 24 12 6 6 6 12)
  12.  
  13. Use with gen-loop to loop material from short patterns inside longer patterns:
  14.  
  15. (symbol-interleave (gen-loop '(1 3 3) '(ab cd ef)) '(a b c d e f g h i))
  16. --> (ab a cd b ef c ab d cd e ef f ab g cd h ef i)
  17.